home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 71
/
MOBICLIC 71.ISO
/
mac
/
DATA
/
COMMUN
/
temp0001
/
00270_Script_GESTION_PISTE_VIDEO_AVEC_ZOOM
< prev
next >
Wrap
Text File
|
2004-12-05
|
2KB
|
73 lines
global gpiste_Video, gDuree_QT
property p_cettePiste, p_Nodepiste,p_nom_Acteur, petat, ploc, p_mainW, p_mainH, p_zoomable
---------------------------------
on getPropertyDescriptionList me
return [#p_zoomable:[#comment: "zoomable:",#format: #boolean, #default: false ]]
end getPropertyDescriptionList
-----------------------------
on beginSprite me
p_Nodepiste = me.spriteNum
p_cettePiste = sprite(p_Nodepiste)
gpiste_Video = p_Nodepiste
p_nom_Acteur = p_cettePiste.member.name
gDuree_QT = p_cettePiste.member.duration
petat = 1
ploc = p_cettePiste.loc
p_mainW = p_cettePiste.width
p_mainH = p_cettePiste.height
end
--------------------------------
on mouseUp
if the pauseState then exit
if p_zoomable = 0 then exit
p_cettePiste .visible = 0
case(petat) of
1:
petat = 2
p_cettePiste.loc = point(320,240)
p_cettePiste.width = 520
p_cettePiste.height = 390
puppetTransition(9)
2:
petat = 3
p_cettePiste.loc = point(320,240)
p_cettePiste.width = 640
p_cettePiste.height = 480
puppetTransition(9)
3:
petat = 1
p_cettePiste.loc = ploc
p_cettePiste.width = p_mainW
p_cettePiste.height = p_mainH
puppetTransition(10)
end case
p_cettePiste .visible = 1
end
-----------------------------------
on mouseWithin
if the pauseState then exit
if p_zoomable = 0 then exit
case(petat) of
1,2:
cursor 302
3:
cursor 303
end case
end
---------------
on mouseEnter
stopEvent
end
-------------
on mouseLeave
cursor -1
stopEvent
end
-------------
on mouseDown
stopEvent
end
-------------